home *** CD-ROM | disk | FTP | other *** search
/ SPACE 1 / SPACE - Library 1 - Volume 1.iso / program / 441 / aessrc12 / aesutrs3.s < prev    next >
Text File  |  1990-11-23  |  1KB  |  45 lines
  1.  
  2. ;*========================================================================
  3. ;*
  4. ;* AESFAST Public Domain GEM bindings.
  5. ;*
  6. ;*========================================================================
  7.  
  8. ;*************************************************************************
  9. ;*
  10. ;* AESUTRS3.S - Resource-related Utilities 3 of n.
  11. ;*  Non-standard utility functions.
  12. ;*
  13. ;*************************************************************************
  14.  
  15.           .extern   _rsrc_obfix
  16.           .include  "gemfast.sh"
  17.  
  18. ;-------------------------------------------------------------------------
  19. ; rsc_treefix - Do rsrc_obfix for an entire tree.
  20. ;
  21. ;  void rsc_treefix(tree);
  22. ;-------------------------------------------------------------------------
  23.  
  24. _rsc_treefix::
  25.           .cargs    #4,.ptree.l
  26.           move.l    .ptree(sp),a0
  27.           movem.l   d3/a3,-(sp)
  28.           move.l    a0,a3
  29.           moveq.l   #-1,d3
  30. .loop:
  31.           addq.w    #1,d3
  32.           move.w    d3,-(sp)
  33.           move.l    a3,-(sp)
  34.           jsr       _rsrc_obfix
  35.           addq.l    #6,sp
  36.           move.w    d3,d0
  37.           muls      #OBJ_SIZ,d0
  38.           btst.b    #BLASTOB,ob_flags+1(a3,d0.l)
  39.           beq.s     .loop
  40.           movem.l   (sp)+,d3/a3
  41.           rts
  42.           
  43. ;         end of code
  44.  
  45.